10 A=5    :N=1:DEF FNA(X)=X-INT(X/2)*2:PRINTN;3;4;5
20 M=INT(SQR(2)*A)-A:M=(FNA(M)<>FNA(A))+M
30 FORX=MTO1STEP-2:C=(A*A-X*X)/2/X:IFC=INT(C)THENN=N+1:PRINTN;A;C;C+X
40 NEXTX:A=A+1:GOTO20